home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / towerwc4.zip / TDTPT1.EXE / TOWERS.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-07  |  16KB  |  826 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  16078 bytes  03/09/122  08:27:56am
  3. '! Code Segment Size  :7374 bytes
  4. '! Data Segment Size  :4963 bytes
  5. '! String Segment Size:8704 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type27
  9.         s0 As String*40
  10.         l40 As Long
  11.       End Type
  12.  
  13.       Type Type26
  14.         s0 As String*15
  15.         s15 As String*15
  16.         Filler30(1 To 32) As Byte
  17.         s62 As String*7
  18.         Filler69(1 To 67) As Byte
  19.         s136 As String*3
  20.         Filler139(1 To 3) As Byte
  21.         s142 As String*4
  22.       End Type
  23.  
  24.       Declare Sub Sub3284
  25.       Declare Sub Sub3409
  26.       Declare Sub Sub3563
  27.       Declare Sub Sub3717
  28.       Declare Sub Sub3871
  29.       Declare Sub Sub3957
  30.       Declare Sub Sub4032
  31.       Declare Sub Sub4584
  32.       Declare Sub Sub4832
  33.       Declare Sub Sub4882
  34.       Declare Sub Sub4932
  35.       Declare Sub Sub4966
  36.       Declare Sub Sub5462
  37.       Declare Sub Sub6574
  38.       Declare Sub Sub7081
  39.  
  40.       Dim s4463 As String
  41.       Dim s4467 As String
  42.       Dim s4471 As String
  43.       Dim s4475 As String
  44.       Dim s4479 As String*1
  45.       Dim i4480 As Integer
  46.       Dim i4654 As Integer
  47.       Dim t26_4656 As Type26
  48.       Dim w4828 As Word
  49.       Dim i4830 As Integer
  50.       Dim s4832 As String*1
  51.       Dim s4833 As String
  52.       Dim s4837 As String
  53.       Dim s4841 As String
  54.       Dim i4845 As Integer
  55.       Dim i4847 As Integer
  56.       Dim s4849 As String*5
  57.       Dim i4854 As Integer
  58.       Dim r4856 As Real
  59.       Dim i4862 As Integer
  60.       Dim s4864 As String*1
  61.       Dim s4865 As String*1
  62.       Dim i4866 As Integer
  63.       Dim i4868 As Integer
  64.       Dim i4870 As Integer
  65.       Dim i4872 As Integer
  66.       Dim s4874 As String
  67.       Dim s4878 As String
  68.       Dim t27_4882 As Type27
  69.       Dim d4926 As Date
  70.       Dim s4928 As String
  71.       Dim s4932 As String
  72.       Dim s4936 As String
  73.       Dim s4940 As String
  74.       Dim s4944 As String
  75.       Dim s4948 As String*15
  76.  
  77.       s4940 = "WCNODEID"
  78.       s4936 = Environ(s4940)
  79.       s4479 = "Y"
  80.       CurrentDate d4926
  81.       s4928 = FormatDate(d4926, "mm/dd/yy")
  82.       s4932 = FormatDate(d4926, "yy/mm/dd")
  83.       EnablePages 0
  84.       s4833 = "          @07@─────@08@══════════@07@──────"
  85.       i4654 = FreeFile
  86.       s4471 = ProgPath + "towers.cfg"
  87.       Open s4471 For Input As i4654
  88.       Input #i4654, s4463
  89.       Input #i4654, s4467
  90.       Input #i4654, s4475
  91.       Close i4654
  92.       If s4479 = "N" Then
  93.         s4475 = "UNREGISTERED COPY"
  94.       End If
  95.   230 Sub6574
  96.       If Exists(ProgPath + "tdtmaint.dat") Then
  97.         i4654 = FreeFile
  98.         Open ProgPath + "tdtmaint.dat" For Input As i4654
  99.         Input #i4654, s4944
  100.         Close i4654
  101.         s4944 = UCase(s4944)
  102.         If s4944 <> s4928 Then
  103.           Del ProgPath + "tdtplay.dat"
  104.           Del ProgPath + "tdtmaint.dat"
  105.         End If
  106.       End If
  107.   362 i4654 = FreeFile
  108.       Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  109.       i4480 = 0
  110.       Do
  111.   405   i4480 = i4480 + 1
  112.         Get i4654, i4480, t26_4656 '! 172 bytes
  113.         If InStr(UCase(t26_4656.s0), UCase(Pad(User.Name, 15))) Then
  114.           GoTo 495
  115.         End If
  116.   479 Loop While Not EOF(i4654)
  117.   495 Close i4654
  118.       Sub7081
  119.       If Exists(ProgPath + "tdtplay.dat") Then
  120.         i4654 = FreeFile
  121.         Open ProgPath + "tdtplay.dat" For Input As i4654
  122.         Do
  123.   564     Input #i4654, s4948
  124.           If InStr(UCase(s4948), UCase(t26_4656.s0)) Then
  125.             Close i4654
  126.             GoTo 647
  127.           End If
  128.   617   Loop While Not EOF(i4654)
  129.         Close i4654
  130.       End If
  131.   641 GoTo 705
  132.   647 MorePrompt(0)
  133.       Cls 
  134.       Sub4932
  135.       Locate 5, 12
  136.       Print "@0D@Sorry....It appears that you have already played today."
  137.       Locate 7, 12
  138.       Print "@0D@Come back tomorrow - and DON'T FORGET YOUR WEAPONS!!!!!"
  139.       Sub3871
  140.       Sub4832
  141.   705 i4654 = FreeFile
  142.       Open ProgPath + "tdtplay.dat" For Append As i4654
  143.       Print #i4654, UCase(t26_4656.s0)
  144.       Close i4654
  145.       i4654 = FreeFile
  146.       Open ProgPath + "tdtmaint.dat" For Output As i4654
  147.       Print #i4654, UCase(s4928)
  148.       Close i4654
  149.       Cls 
  150.       MorePrompt(0)
  151.       DisplayTextFile(ProgPath + "towers1.bbs")
  152.       Locate 12, 36
  153.       Print "@0D@.65 @08@(@07@Beta Release@08@)"
  154.       Locate 13, 36
  155.       Print "@0D@1/7/96"
  156.       Locate 14, 36
  157.       Print "@0D@" + s4475
  158.       Sub3284
  159.       Sub3871
  160.       Sub4932
  161.       Locate 5, 7
  162.       Print "@05@Your journey ends in a large field atop a mountain@07@.@08@.@07@.@08@."
  163.       Locate 6, 7
  164.       Print "@05@You see a large crowd of warriors@07@.@08@.@07@.@05@so you wander over to them@07@.@08@.@07@."
  165.       Locate 7, 7
  166.       Print "@0D@What's going on here fellow warriors? @05@you ask@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  167.       Locate 8, 7
  168.       Print "@09@We're betting on slave deaths@07@.@08@.@07@.@08@.@05@ responds the nearest warrior."
  169.       Locate 9, 7
  170.       Print "@0D@SLAVE DEATHS?????? @05@Hmmmmm what the hell is this?????"
  171.       Locate 10, 7
  172.       Print "@05@You soon find out what they are talking about@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  173.       Sub3871
  174.       Sub4932
  175.       Locate 5, 5
  176.       Print "@05@You can't help but notice the two @08@DARK TOWERS @05@off in the distance."
  177.       Locate 6, 5
  178.       Print "@05@This spot commands a magnificent view of the towers in the distance."
  179.       Locate 7, 5
  180.       Print "@05@Then you find out exactly what this is all about@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  181.       Locate 8, 5
  182.       Print "@05@You notice that on each tower is a small ledge@07@.@08@.@07@.@08@.@07@.@08@."
  183.       Locate 9, 5
  184.       Print "@05@On each ledge stands a slave@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  185.       Locate 10, 5
  186.       Print "@05@You notice that even as you stand there thinking@07@.@08@.@07@.@08@."
  187.       Locate 11, 5
  188.       Print "@05@Bets are being placed! What in the HELL is going on here??"
  189.       Locate 12, 5
  190.       Print "@05@After all the bets are placed a trumpet is sounded@07@.@08@.@07@.@08@.@07@.@08@."
  191.       Locate 13, 5
  192.       Print "@05@Then the slaves are pushed from the ledges to their deaths@07@.@08@.@07@.@08@.@07@."
  193.       Sub3871
  194.       Sub4932
  195.       Locate 5, 5
  196.       Print "@05@A flag is then raised to indicate which slave died first."
  197.       Locate 6, 5
  198.       Print "@05@Then the winnings are distributed to the winners@07@.@08@.@07@.@08@."
  199.       Locate 7, 5
  200.       Print "@05@A cheer is heard from the crowd! These are some really sick F@#$@#S!"
  201.       Locate 8, 5
  202.       Print "@05@How can this be????? This is freakin' barbaric!!!!!!"
  203.       Locate 9, 5
  204.       Print "@05@This is the most vile, disgusting thing you've EVER witnessed!"
  205.       Locate 10, 5
  206.       Print "@05@How can people BET on which body will hit the ground first???"
  207.       Locate 11, 5
  208.       Print "@05@How can life be so worthless as to be used for others amusement@07@.@08@.@07@.@08@.@07@."
  209.       Locate 12, 5
  210.       Print "@05@How can these people stand idly by and watch this senseless @04@CARNAGE@05@?"
  211.       Locate 13, 5
  212.       Print "@05@You've got to do something about these attrocities!"
  213.       Sub3871
  214.       Sub4932
  215.       Locate 5, 7
  216.       Print "@05@Well@07@.@08@.@07@.@08@.@07@.@05@what're ya gonna do " + "@05@" + Trim(t26_4656.s15) + "@05@???"
  217.       Locate 7, 7
  218.       Print "@05@[@0D@A@05@]@0D@venge the deaths of the slaves and kill these S.O.B.'s!!!!"
  219.       Locate 9, 7
  220.       Print "@05@[@0D@P@05@]@0D@lace your bet! Who cares about some lowlife slaves anyways!!!"
  221.       Do
  222.  1416   Locate 23, 1
  223.         s4832 = InKey(1213417543)
  224.         If InStr("AP", UCase(s4832)) Then
  225.           GoTo 1472
  226.         End If
  227.  1466 Loop
  228.  1472 If UCase(s4832) = "A" Then
  229.         Sub4932
  230.         Locate 5, 5
  231.         Print "@0D@STOP YOU SCOUNDRELS!!!! @05@You Yell at the crowd"
  232.         Locate 6, 5
  233.         Print "@0D@THIS HAS GOT TO STOP AND NOW!!!! THIS IS SENSELESS KILLING!!!"
  234.         Locate 7, 5
  235.         Print "@05@The only response to this is loud laughter@08@.@07@.@08@.@07@."
  236.         Locate 8, 5
  237.         Print "@05@They find your rantings extremely humorous@07@.@08@.@07@.@08@."
  238.         Locate 9, 5
  239.         Print "@05@Then one of the warriors yells @09@Throw his skanky a$$ offa the cliff@05@!!"
  240.         Locate 10, 5
  241.         Print "@05@You try to fight them off but it's no use - you're outnumbered!!"
  242.         Locate 11, 5
  243.         Print "@05@Four of the biggest ones grab you and chuck you off the cliff!"
  244.         Locate 12, 5
  245.         Print "@05@Your helpless body tumbles rapidly to the rocky base of the cliff!"
  246.         Locate 13, 5
  247.         Print "@05@Only the gods can save you now@07@.@08@.@07@.@08@.@07@.@08@."
  248.         Sub3871
  249.         Locate 23, 1
  250.         ClrEOL 
  251.         Sub4966
  252.         Sub4932
  253.         i4845 = Rnd * 100 Mod 50 + 1
  254.         If i4845 <= 25 Then
  255.           Locate 5, 5
  256.           Print "@05@Your body is ripped to pieces by the fall!!!"
  257.           Locate 6, 5
  258.           Print "@05@Some healers wander past - but not even they can save you!"
  259.           Locate 7, 5
  260.           Print "@05@With your last breath you say a prayer for your soul@07@.@08@.@07@.@08@."
  261.           Locate 8, 5
  262.           Print "@05@The last thing you remember is a flock of vultures descending on you."
  263.           Locate 9, 5
  264.           Print "@05@The Vultures pick your body of all but the bones@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  265.           Locate 11, 25
  266.           Print "@84@Surprise you're DEAD!"
  267.           Sub3871
  268.           Sub4584
  269.         Else
  270.  1825     Locate 5, 5
  271.           Print "@05@Your body is ripped to pieces by the fall!!!"
  272.           Locate 6, 5
  273.           Print "@05@Some healers walk up@07@.@08@.@07@.@08@.@07@.@08@."
  274.           Locate 7, 5
  275.           Print "@05@They mumble some ancient sounding spells and incantations@07@.@08@.@07@.@08@."
  276.           Locate 8, 5
  277.           Print "@05@Well@07@.@08@.@07@.@08@.@05@They saved your life - but you're hurtin' bad!"
  278.           Locate 9, 5
  279.           Print "@05@You thank the gods that you have been spared this agonizing death!"
  280.           Locate 10, 5
  281.           Print "@05@You laugh at the vultures@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@0D@NO MEAL TODAY VULTURES@85@!"
  282.           Locate 12, 5
  283.           Print "@04@Your Hitpoints are at @0C@1 @04@Don't forget to go to the Doctor's Office@05@!!!"
  284.           i4847 = 1
  285.           t26_4656.s142 = Str(i4847)
  286.           If Len(t26_4656.s142) < 4 Then
  287.             t26_4656.s142 = Pad(t26_4656.s142, 4)
  288.           End If
  289.  2010     Sub3957
  290.           Sub3871
  291.           Sub4882
  292.         End If
  293.       End If
  294.  2028 If UCase(s4832) = "P" Then
  295.         Sub4932
  296.         Locate 5, 12
  297.         Print "@09@Step right up WARRIOR!!! @05@an older Warrior bellows."
  298.         Locate 6, 12
  299.         Print "@09@There is only one bet left today@07@.@08@.@07@.@08@."
  300.         Locate 7, 12
  301.         Print "@09@So if you're gonna bet do it now " + "@09@" + Trim(t26_4656.s15) + "@09@!!!"
  302.         Locate 8, 12
  303.         Print "@09@WELL????? Are ya gonna bet or not????? @05@asks the warrior."
  304.         Locate 10, 22
  305.         Print "@05@[@0D@H@05@]@0D@ell YEAH!!!"
  306.         Locate 12, 22
  307.         Print "@05@[@0D@N@05@]@0D@ope I changed my mind!!!"
  308.         Do
  309.  2181     Locate 23, 1
  310.           s4832 = InKey(1213417543)
  311.           If InStr("HN", UCase(s4832)) Then
  312.             GoTo 2237
  313.           End If
  314.  2231   Loop
  315.  2237   If UCase(s4832) = "N" Then
  316.           Sub4932
  317.           Locate 5, 12
  318.           Print "@05@What a @0D@WUSS@05@!!!!!!"
  319.           Locate 6, 12
  320.           Print "@05@All the other warriors laugh at you!"
  321.           Locate 7, 12
  322.           Print "@09@Get outa here you little wimp of a warrior!"
  323.           Locate 8, 12
  324.           Print "@05@They all laugh in ridicule of you!"
  325.           Locate 9, 12
  326.           Print "@05@They all start to eye you warily@07@.@08@.@07@.@08@."
  327.           Locate 10, 12
  328.           Print "@05@It'd probably be a good idea to leave now@07@.@08@.@07@.@08@."
  329.           Sub3871
  330.           Sub4832
  331.         Else
  332.           Do
  333.             Do
  334.  2379         r4856 = Val(Trim(t26_4656.s62))
  335.               Sub4932
  336.               Locate 5, 12
  337.               Print "@09@Well how much you wanna bet " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  338.               Locate 6, 12
  339.               Print "@09@The maximum bet here is 10,000 Gold@07@.@08@.@07@.@08@.@07@.@08@."
  340.               Locate 7, 12
  341.               Print "@09@The odds are 2 to 1 - A 10,000 bet can win ya 20,000!"
  342.               Locate 8, 12
  343.               Print "@09@Well? I ain't got all day - what's it gonna be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  344.               Locate 9, 12
  345.               Print "@09@To just quit - select a 0 bet@07@.@08@.@07@.@08@.@07@.@08@."
  346.               Locate 10, 12
  347.               s4849 = InputMask("@09@How much are ya gonna bet? @0C@", "XXXXX", "", 1213417543)
  348.               i4854 = Val(Trim(s4849))
  349.               If (i4854 > 10000) = 0 Then GoTo 2658
  350.               Locate 12, 12
  351.               Print "@09@Can't you READ??? I SAID 10,000 Gold MAXIMUM BET!!!!!"
  352.               Locate 13, 13
  353.               Print "@09@Let's see if you can get it right THIS TIME!!!!"
  354.               Sub3871
  355.             Loop
  356.  2658       If i4854 < 1 Then
  357.               Locate 12, 12
  358.               Print "@09@You obviously don't take this seriously @05@states the warrior."
  359.               Locate 13, 12
  360.               Print "@09@So why don't ya get the HELL outa here NOW!!!"
  361.               Locate 14, 12
  362.               Print "@05@It seems that NOW would be a good time to leave@07@.@08@.@07@.@08@."
  363.               Locate 15, 12
  364.               Print "@05@Before these warriors decide to bet on your life!"
  365.               Sub3871
  366.               Sub4832
  367.             End If
  368.  2749       If (i4854 > r4856) = 0 Then GoTo 2837
  369.             Locate 12, 12
  370.             Print "@09@YOU SCOUNDREL! ARE YOU TRYING TO CHEAT ME?"
  371.             Locate 13, 12
  372.             Print "@09@You don't even have " + "@09@" + Trim(s4849) + "@09@ gold!"
  373.             Sub3871
  374.           Loop
  375.  2837     r4856 = r4856 - i4854
  376.           t26_4656.s62 = Str(r4856)
  377.           If Len(t26_4656.s62) < 7 Then
  378.             t26_4656.s62 = Pad(t26_4656.s62, 7)
  379.           End If
  380.  2922     If Len(t26_4656.s62) > 7 Then
  381.             t26_4656.s62 = "9999999"
  382.           End If
  383.  2960     Sub3957
  384.           Sub4932
  385.           Locate 5, 12
  386.           Print "@09@VERY GOOD! A bet of " + "@09@" + s4849 + " @09@is a noble one indeed!"
  387.           Locate 6, 12
  388.           Print "@09@There is just one more MINOR detail to take care of@07@.@08@.@07@.@08@."
  389.           Locate 7, 12
  390.           Print "@09@That would be which SLAVE do you think will die first?????"
  391.           Locate 8, 12
  392.           Print "@09@WELL?? Which one will it be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  393.           Locate 10, 12
  394.           Print "@05@The [@09@B@05@]@09@lue @05@Slave"
  395.           Locate 12, 12
  396.           Print "@05@The [@0D@M@05@]@0D@agenta @05@Slave"
  397.           Do
  398.  3119       Locate 23, 1
  399.             s4832 = InKey(1213417543)
  400.             If InStr("BM", UCase(s4832)) Then
  401.               GoTo 3175
  402.             End If
  403.  3169     Loop
  404.  3175     s4864 = UCase(s4832)
  405.           Sub4932
  406.           Locate 10, 20
  407.           Print "@8D@PLEASE HOLD - PREPARING THE SLAVES"
  408.           Sub4966
  409.           Sub5462
  410.         End If
  411.       End If
  412.  3224
  413.  
  414. '! Called 1 time
  415.       Sub Sub3284
  416.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@traveled to @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  417.         s4841 = "@05@What secrets could possibly lie within their cold stone walls?"
  418.         Open s4463 + "today.txt" For Append As i4654
  419.         Print #i4654, s4837
  420.         Print #i4654, s4841
  421.         Print #i4654, s4833
  422.         Close i4654
  423.       End Sub
  424.  
  425. '! Called 1 time
  426.       Sub Sub3409
  427.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  428.         s4841 = "@05@We all shall mourn the passing of " + "@0D@" + Trim(t26_4656.s15) + " @05@the Warrior...."
  429.         Open s4463 + "today.txt" For Append As i4654
  430.         Print #i4654, s4837
  431.         Print #i4654, s4841
  432.         Print #i4654, s4833
  433.         Close i4654
  434.       End Sub
  435.  
  436. '! Called 1 time
  437.       Sub Sub3563
  438.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  439.         s4841 = "@05@Amazingly " + "@0D@" + Trim(t26_4656.s15) + " @05@they survived the ordeal! Send 'em a Get Well Soon Card!"
  440.         Open s4463 + "today.txt" For Append As i4654
  441.         Print #i4654, s4837
  442.         Print #i4654, s4841
  443.         Print #i4654, s4833
  444.         Close i4654
  445.       End Sub
  446.  
  447. '! Called 1 time
  448.       Sub Sub3717
  449.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@successfully made it back from @07@T@08@he @07@D@08@ark @0D@T@08@owers@84@!"
  450.         s4841 = "@05@I bet " + "@0D@" + Trim(t26_4656.s15) + " @05@has some stories to tell...."
  451.         Open s4463 + "today.txt" For Append As i4654
  452.         Print #i4654, s4837
  453.         Print #i4654, s4841
  454.         Print #i4654, s4833
  455.         Close i4654
  456.       End Sub
  457.  
  458. '! Called 15 times
  459.       Sub Sub3871
  460.         Locate 23, 25
  461.         Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
  462.         Do
  463.  3896     s4832 = InKey(1213417543)
  464.           If UCase(s4832) > "" Then
  465.             GoTo 3944
  466.           End If
  467.  3938   Loop
  468.  3944   Locate 23, 1
  469.         ClrEOL 
  470.       End Sub
  471.  
  472. '! Called 7 times
  473.       Sub Sub3957
  474.         i4654 = FreeFile
  475.         Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  476.         Put i4654, i4480, t26_4656 '! 172 bytes
  477.         Close i4654
  478.       End Sub
  479.  
  480. '! Called 3 times
  481.       Sub Sub4032
  482.         Dim l65512 As Long
  483.         Dim i65516 As Integer
  484.         Dim l65518 As Long
  485.         Dim i65522 As Integer
  486.         Dim l65524 As Long
  487.         Dim i65528 As Integer
  488.         Dim l65530 As Long
  489.         Dim i65534 As Integer
  490.  
  491.         Cls 
  492.         MorePrompt(0)
  493.         Locate 8, 17
  494.         Print "  @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
  495.         Locate 9, 17
  496.         Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
  497.         Locate 11, 17
  498.         Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
  499.  4118   For i4830 = 17 To 27 Step 1
  500.           Locate 10, i4830
  501.           Print "@0D@░"
  502.           Delay 0.1
  503.         Next
  504.  4218
  505.  4239   For i4830 = 28 To 38 Step 1
  506.           Locate 10, i4830
  507.           Print "@0D@▒"
  508.           Delay 0.1
  509.         Next
  510.  4339
  511.  4360   For i4830 = 39 To 49 Step 1
  512.           Locate 10, i4830
  513.           Print "@0D@▓"
  514.           Delay 0.1
  515.         Next
  516.  4460
  517.  4481   For i4830 = 50 To 58 Step 1
  518.           Locate 10, i4830
  519.           Print "@0D@█"
  520.           Delay 0.1
  521.         Next
  522.  4581
  523.       End Sub
  524.  
  525. '! Called 1 time
  526.       Sub Sub4584
  527.         Sub3409
  528.         i4847 = 0
  529.         t26_4656.s136 = "NO "
  530.         t26_4656.s142 = Str(i4847)
  531.         t26_4656.s62 = "0      "
  532.         If Len(t26_4656.s62) <= 7 Then
  533.           t26_4656.s62 = Pad(t26_4656.s62, 7)
  534.         End If
  535.  4701   If Len(t26_4656.s142) <= 4 Then
  536.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  537.         End If
  538.  4749   If Len(t26_4656.s136) <= 3 Then
  539.           t26_4656.s136 = Pad(t26_4656.s136, 3)
  540.         End If
  541.  4797   Sub3957
  542.         If s4479 = "N" Then
  543.           Sub4032
  544.         End If
  545.  4828   End 
  546.       End Sub
  547.  
  548. '! Called 3 times
  549.       Sub Sub4832
  550.         Sub3717
  551.         Sub3957
  552.         If s4479 = "N" Then
  553.           Sub4032
  554.         End If
  555.  4878   End 
  556.       End Sub
  557.  
  558. '! Called 1 time
  559.       Sub Sub4882
  560.         Sub3563
  561.         Sub3957
  562.         If s4479 = "N" Then
  563.           Sub4032
  564.         End If
  565.  4928   End 
  566.       End Sub
  567.  
  568. '! Called 13 times
  569.       Sub Sub4932
  570.         Cls 
  571.         MorePrompt(0)
  572.         DisplayTextFile(ProgPath + "towers4.bbs")
  573.       End Sub
  574.  
  575. '! Called 2 times
  576.       Sub Sub4966
  577.         Dim l65512 As Long
  578.         Dim i65516 As Integer
  579.         Dim l65518 As Long
  580.         Dim i65522 As Integer
  581.         Dim l65524 As Long
  582.         Dim i65528 As Integer
  583.         Dim l65530 As Long
  584.         Dim i65534 As Integer
  585.  
  586.  4996   For i4830 = 17 To 27 Step 1
  587.           Locate 20, i4830
  588.           Print "@0D@░"
  589.           Delay 0.1
  590.         Next
  591.  5096
  592.  5117   For i4830 = 28 To 38 Step 1
  593.           Locate 20, i4830
  594.           Print "@0D@▒"
  595.           Delay 0.1
  596.         Next
  597.  5217
  598.  5238   For i4830 = 39 To 49 Step 1
  599.           Locate 20, i4830
  600.           Print "@0D@▓"
  601.           Delay 0.1
  602.         Next
  603.  5338
  604.  5359   For i4830 = 50 To 58 Step 1
  605.           Locate 20, i4830
  606.           Print "@0D@█"
  607.           Delay 0.1
  608.         Next
  609.  5459
  610.       End Sub
  611.  
  612. '! Called 1 time
  613.       Sub Sub5462
  614.         Dim i65532 As Integer
  615.         Dim i65534 As Integer
  616.  
  617.         s4874 = "@09@Ω"
  618.         s4878 = "@0D@Ω"
  619.         i4866 = 6
  620.         i4868 = 12
  621.         i4870 = 6
  622.         i4872 = 60
  623.         w4828 = 6
  624.         i4830 = 13
  625.         i4845 = Rnd * 100 Mod 10 + 1
  626.         i65534 = i4845
  627.         i4845 = Rnd * 100 Mod 10 + 1
  628.         i65532 = i4845
  629.         s4865 = " "
  630.         Cls 
  631.         MorePrompt(0)
  632.         DisplayTextFile(ProgPath + "towers.bbs")
  633.         Locate i4866, i4868
  634.         Print s4874
  635.         Locate i4870, i4872
  636.         Print s4878
  637.         Locate 3, 9
  638.         Print "@0F@· ∙ @0F@──@07@──@08@── @08@We Who@07@ Are Abo@0F@ut To D@07@ie Salu@08@te You!@07@ @08@──@07@──@0F@──@07@ @0F@∙ ·"
  639.         Sub3871
  640.         i4868 = 13
  641.         i4872 = 59
  642.         Cls 
  643.         MorePrompt(0)
  644.         DisplayTextFile(ProgPath + "towers.bbs")
  645.         Locate i4866, i4868
  646.         Print s4874
  647.         Locate i4870, i4872
  648.         Print s4878
  649.         Delay 0.5
  650.         Locate i4866, i4868
  651.         Print " "
  652.         Locate i4870, i4872
  653.         Print " "
  654.         Do
  655.  5826     i4866 = i4866 + i65534
  656.           If i4866 >= 23 Then
  657.             s4865 = "B"
  658.             GoTo 6024
  659.           End If
  660.  5875     i4870 = i4870 + i65532
  661.           If i4870 >= 23 Then
  662.             s4865 = "M"
  663.             GoTo 6024
  664.           End If
  665.  5924     Locate i4866, i4868
  666.           Print s4874
  667.           Locate i4870, i4872
  668.           Print s4878
  669.           Delay 0.5
  670.           Locate i4870, i4830
  671.           Print Space(47)
  672.           Locate i4866, i4830
  673.           Print Space(47)
  674.         Loop
  675.  6024   If s4865 = "B" Then
  676.           Cls 
  677.           MorePrompt(0)
  678.           DisplayTextFile(ProgPath + "towers2.bbs")
  679.         Else
  680.  6071     Cls 
  681.           MorePrompt(0)
  682.           DisplayTextFile(ProgPath + "towers3.bbs")
  683.         End If
  684.  6093   Delay 1.5
  685.         Sub4932
  686.         If s4865 = s4864 Then
  687.           i4862 = i4854 * 2
  688.           r4856 = r4856 + i4862
  689.           t26_4656.s62 = Str(r4856)
  690.           If Len(t26_4656.s62) < 7 Then
  691.             t26_4656.s62 = Pad(t26_4656.s62, 7)
  692.           End If
  693.  6226     If Len(t26_4656.s62) > 7 Then
  694.             t26_4656.s62 = "9999999"
  695.           End If
  696.  6264     Sub3957
  697.           Locate 5, 8
  698.           Print "@05@The officiating Warrior rushes over to you@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  699.           Locate 6, 8
  700.           Print "@09@VERY WELL DONE Mighty " + "@09@" + Trim(t26_4656.s15) + "@09@!!!!"
  701.           Locate 7, 8
  702.           Print "@09@VERY WELL INDEED! @05@stammers the Warrior@07@.@08@.@07@.@08@.@07@."
  703.           Locate 8, 8
  704.           Print "@09@Your bet came in! You won " + "@89@" + Str(i4862) + " @89@GOLD@09@!!!!"
  705.           Locate 10, 8
  706.           Print "@05@Too bad for the Slaves - But they made you a tidy sum of CASH!!!"
  707.         Else
  708.  6409     i4862 = 0
  709.           Locate 5, 8
  710.           Print "@09@HAHAHAHAHAHAHA You Suck! @05@Scoffs the Warrior."
  711.           Locate 6, 8
  712.           Print "@09@Your betting ability is crappy at the best! @05@He laughs."
  713.           Locate 7, 8
  714.           Print "@09@Maybe you'd be better suited on the 'Other Side' of this game!"
  715.           Locate 8, 8
  716.           Print "@05@NOW might be a good time for you to get the hell outa here!!!!"
  717.           Locate 9, 8
  718.           Print "@05@The Warrior is watching you warily@07@.@08@.@07@.@08@."
  719.           Locate 10, 8
  720.           Print "@09@GET HIM! @05@he yells! All the warriors rush after you!"
  721.           Locate 11, 8
  722.           Print "@05@You (somehow) manage to escape the group@07@.@08@.@07@.@08@.@07@."
  723.           Locate 13, 8
  724.           Print "@05@You rush back to The World of The Lachrymator@08@.@07@.@08@.@07@.@08@.@07@."
  725.           Locate 15, 8
  726.           Print "@0D@WHEW! THAT SURE WAS A CLOSE ONE!!!!!!!!!!!!!"
  727.         End If
  728.  6559   Sub3871
  729.         Sub3957
  730.       End Sub
  731.  
  732. '! Called 1 time
  733.       Sub Sub6574
  734.         Dim l65504 As Long
  735.         Dim i65508 As Integer
  736.         Dim i65510 As Integer
  737.         Dim l65512 As Long
  738.         Dim s65516 As String
  739.         Dim s65520 As String
  740.         Dim s65524 As String
  741.         Dim s65528 As String
  742.         Dim s65532 As String
  743.  
  744.         Cls 
  745.         MorePrompt(0)
  746.         s65532 = s4932
  747.  6625   For i65510 = 1 To Len(s65532) Step 1
  748.           s65528 = Mid(s65532, i65510, 1)
  749.           If s65528 = "/" Then
  750.           Else
  751.  6716       s65524 = s65524 + s65528
  752.           End If
  753.  6730   Next
  754.  6753   l65512 = Val(s65524)
  755.         If Exists(s4463 + "BETA.KEY") Then
  756.           Open s4463 + "BETA.KEY" For Random As 1 Len = 44 '! This value should probably be replaced with a "SizeOf" expression
  757.         Else
  758.  6817     Print "     BETA KEY Missing......Aborting Game.....Contact Mark Bappe"
  759.           Print "     at (770)922-9638 (BBS) or (770)922-4368 (Voice)"
  760.           WaitEnter 
  761.           End 
  762.         End If
  763.  6839   Get 1, 1, t27_4882 '! 44 bytes
  764.         If l65512 > t27_4882.l40 Then
  765.           Print "@0C@          BETA KEY HAS EXPIRED!!!!!....Aborting Program!!!!!!"
  766.           Close 1
  767.           WaitEnter 
  768.           End 
  769.         Else
  770.  6897     s65520 = Str(l65512)
  771.           s65516 = Str(t27_4882.l40)
  772.           If Val(Mid(s65520, Len(s65520) - 1, 2)) > Val(Mid(s65516, Len(s65516) - 1, 2)) Then
  773.             Print "@0C@          BETA KEY HAS EXPIRED!!!!!....Aborting Program!!!!!!!"
  774.             Close 1
  775.             WaitEnter 
  776.             End 
  777.           Else
  778.  7003       s65532 = "The BoZax Bulletin (770)922-9638"
  779.             If t27_4882.s0 <> Pad(s65532, 40) Then
  780.               Print "@0C@          BETA KEY IS CORRUPT, OR HAS BEEN TAMPERED WITH....ABORTING!"
  781.               Close 1
  782.               WaitEnter 
  783.               End 
  784.             End If
  785.           End If
  786.         End If
  787.  7053   Close 1
  788.       End Sub
  789.  
  790. '! Called 1 time
  791.       Sub Sub7081
  792.         Dim s65528 As String
  793.         Dim s65532 As String
  794.  
  795.         If Exists(s4463 + "lachex" + s4936 + ".dat") Then
  796.           i4654 = FreeFile
  797.           Open s4463 + "lachex" + s4936 + ".dat" For Input As i4654
  798.           Input #i4654, s65532
  799.           Close i4654
  800.           s65528 = Left(s65532, 15)
  801.           If UCase(s65528) = UCase(t26_4656.s0) Then
  802.             GoTo 7363
  803.           Else
  804.  7240       GoTo 7252
  805.           End If
  806.  7246   Else
  807.  7252     Cls 
  808.           MorePrompt(0)
  809.           Locate 3, 12
  810.           Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
  811.           Locate 5, 12
  812.           Print "@09@This Program can only be run from a REGISTERED COPY"
  813.           Locate 6, 12
  814.           Print "of Lachrymator. This program cannot be run on it own...."
  815.           Locate 7, 12
  816.           Print "@09@According to internal file verification routines..."
  817.           Locate 8, 12
  818.           Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
  819.           Locate 9, 12
  820.           Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
  821.         End If
  822.  7356   Sub3871
  823.         End 
  824.  7363
  825.       End Sub
  826.